home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / _fondanim5-8.adpro < prev    next >
Text File  |  1996-07-02  |  2KB  |  91 lines
  1. /*
  2. ** METTE UN FONDO AD UNA ANIM.5 O ANIM.8 E SALVA I FRAMES A 24 BIT
  3. ** e
  4. ** Apre una finestra di stato sul Workbench
  5. */
  6.  
  7. ADDRESS "ADPro"
  8.  
  9. OPTIONS RESULTS
  10.  
  11. TRUE  = 1
  12. FALSE = 0
  13. NL = '0A'X
  14. SQ = '27'X
  15. DQ = '22'X
  16. TmpIma = 'T:immagine'
  17. NUMEROFRAME = 0
  18. FRAMENUM = 1
  19.  
  20. OKAY2 '"Hai pronta una ANIMAZIONE?"'
  21. IF RC = 0 THEN EXIT
  22.  
  23. GETFILES '"SCEGLI LA ANIMAZIONE"'
  24.   IF RC ~= 0 THEN EXIT
  25.     ANIMFRAME = ADPRO_RESULT
  26.     
  27. GETNUMBER '"PER QUANTI FRAMES ? - 900 MAX"'
  28.        TOTALFRAME = ADPRO_RESULT
  29.        
  30. Trasparenza = DQ || "     Inserisci il livello di" || NL ||,
  31.                     "TRASPARENZA sul fondo da 1 a 100." || NL ||,
  32.                     "   100 = NESSUNA trasparenza." || DQ
  33. GETNUMBER Trasparenza
  34.        TRASP = ADPRO_RESULT
  35.        
  36. LOADER 'ANIM' ANIMFRAME 'FRAME' '1'
  37.     IF ANIMFRAME = "" THEN EXIT
  38.        XSIZE
  39.      BASE = ADPRO_RESULT
  40.        YSIZE
  41.      ALTZ = ADPRO_RESULT
  42.  
  43. GETFILES '"Scegli la IMMAGINE di FONDO"'
  44.  IF RC ~= 0 THEN EXIT
  45.   FONDO = ADPRO_RESULT
  46.    IF FONDO = "" THEN EXIT
  47.      LOADER "UNIVERSAL" FONDO
  48. XSIZE
  49.      BASE2 = ADPRO_RESULT
  50.     YSIZE
  51.      ALTZ2 = ADPRO_RESULT
  52. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  53.                           ABS_SCALE (BASE) (ALTZ)
  54.                           END
  55. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  56.                           ABS_SCALE (BASE) (ALTZ)
  57.                           END
  58.                SAVER "IFF" TmpIma "RAW"
  59.  
  60. GETfile '"Path e nomebase dei frames elaborati"'
  61.   IF RC ~= 0 THEN EXIT
  62.     OUTFILE = ADPRO_RESULT
  63.      if OUTFILE = "" then exit
  64.  
  65. Bucatura = DQ || "  Vuoi bucare il NERO" || NL ||,
  66.                  "   della ANIMAZIONE ?" || NL ||,
  67.                  "premi CANCEL se NON vuoi." || DQ
  68. OKAY2 Bucatura
  69. IF RC = 0
  70.  THEN BK = '-1'
  71. IF RC = 1
  72.  THEN BK = '0'
  73.  
  74. open('Stat','CON:50/50/200/100/Situazione/cds')
  75.  
  76.     DO i=1 to (TOTALFRAME)
  77.   LFORMAT "UNIVERSAL"
  78. LOAD TmpIma 
  79. LOAD ANIMFRAME 'FRAME' (FRAMENUM) COMPOFFSET 0 0 (TRASP) (BK) (BK) (BK)
  80.   FRAMENUM = (FRAMENUM + 1)
  81.   NUMEROFRAME = (NUMEROFRAME + 1)
  82. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  83.   SAVER "IFF" (OUTFILE)||'.'||(NUMERO) "RAW" 
  84.   writeln('Stat',"Salvo il frame Num." NUMERO)
  85. END
  86.  
  87. ADDRESS COMMAND "Delete >NIL:" TmpIma
  88. close('Stat')
  89.  
  90. EXIT
  91.